MODULE cellinfo
! Copyright (C) 2009-2010 W. Wang 
! License: This file is distributed under the terms of the GNU General Public License.
! Description: ! 
! Revision histoty: Created May 2010  
! Input/output Parameters: 
USE atominfo
IMPLICIT NONE

!Local variables
INTEGER :: atoms

!+-----------------------------------+
!| Atomic parameters                 |
!+-----------------------------------+
TYPE (atom_info), ALLOCATABLE :: atoms_info(:)
!REAL(8),ALLOCATABLE :: atoms_info(:)


!+-----------------------------------+
!| Structural parameters             |
!+-----------------------------------+
REAL(8) :: cell_vector(3,3)
REAL(8) :: recip_vector(3,3)
REAL(8) :: cell_vol
REAL(8) :: recip_vol


!+-----------------------------------+
!| Energetic  space                  |
!+-----------------------------------+
REAL(8) :: cutoff
INTEGER :: kmesh(3)

END MODULE
